﻿Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Public Class frmView
    Private _report As Object
    Private Sub frmView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If _report IsNot Nothing Then
            CrystalReportViewer1.ReportSource = _report
        End If
    End Sub

    Public Sub New(ByVal mReport As Object)

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        _report = mReport
    End Sub
End Class